@import url("https://fonts.googleapis.com/css2?family=Anta&display=swap");

body {
  background-color: #36454f;
  color: white;
  font-family: 'Anta', sans-serif;
  padding: 20px;
  border: 5px solid gray;
}

h1 {
  text-align: center;
  font-weight: bold;
  text-shadow: 3px 3px 1px gray;
}

h3,
h4 {
  text-align: center;
}

p {
  padding: 10px 10px 10px 10px;
  border: 3px solid gray;
}

Project requirements

I created my GitHub account, from there I created a repository and named it “stats220”. I created a README.md file when creating my repository, in my Readme file I used three different types of headers, two types of bullet points and links to other websites. Within the Readme file I also used Bold and Italics.

The link to my repo is:
My Repo

I also created a GitHub website. I did this by creating a RMD file that I named “index.Rmd”, I decided to use the same content that is in this RMD file for my website. I then knit the file into a HTML and uploaded it to my repo. From there I setup GitHub pages and my website was live.

The link to my stats220 website is:
My Website

This is a screenshot of my project folder I created on my computer:

My meme

The inspiration for my meme:

I decided to use this style of meme.
The key features of the meme that I re-created were the images on the right which I managed to do with images I found online. I also added text next to the images like in the inspiration picture.
The key features that I changed when making my own meme was using different pictures than the ones in the inspiration picture. I also changed the images from the right side to the left. I only used three images in my meme instead of four. I decided to change the white background to black and I used white text.

library(magick)

inspo_meme.url = "https://pbs.twimg.com/media/DP9beedX4AAvrwo.jpg"
inspo_meme = image_read(inspo_meme.url)
#image_write(inspo_meme, "inspo_meme.png")

im1.url = "https://i.imgflip.com/1lgr72.jpg?a463272"
im2.url = "https://pyxis.nymag.com/v1/imgs/42d/c5a/53aaae864601cd024b2dd1fddaa6a0839a-15-exploding-brain-meme.rsquare.w400.jpg"
im3.url = "https://i1.sndcdn.com/artworks-lyidNFrSCzymr7fo-mmlyoQ-t500x500.jpg"

blank_square = image_blank(380, 306, color = "black") %>% #Creating a blank square for the right side of the meme
  image_border(color = "white", geometry = "2.5x2.5")

sq1 = image_read(im1.url) %>% #Creating square 1 with the first image url
  image_scale("x300") %>%
  image_border(color = "black",
               geometry = "28x2.5") %>%
  image_border(color = "white",
             geometry = "2.5x2.5")

sq2 = image_read(im2.url) %>% #Creating square 2 with the second image url
  image_scale("x300") %>%
  image_border(color = "black",
               geometry = "2.5x2.5") %>%
  image_border(color = "white",
               geometry = "2.5x2.5")

sq3 = image_read(im3.url) %>% #Creating square 3 with the final image url
  image_scale("x300") %>%
  image_border(color = "black",
               geometry = "2.5x2.5") %>%
  image_border(color = "white",
               geometry = "2.5x2.5")

sq4 = blank_square %>% #Creating square 4 with the blank square then adding text
  image_annotate(text = "Having a\nstrong knee",
                 color = "white",
                 font = "Impact",
                 size = 55,
                 gravity = "center")

sq5 = blank_square %>% #Creating square 5 with the blank square then adding text
  image_annotate(text = "Dislocating \nyour knee",
                 color = "white",
                 font = "Impact",
                 size = 55,
                 gravity = "center")

sq6 = blank_square %>% #Creating square 6 with the blank square then adding text
  image_annotate(text = "Not wearing a \nknee brace \nand  dislocating \nit AGAIN!",
                 color = "white",
                 font = "Impact",
                 size = 55,
                 gravity = "center")

left_side = image_append(c(sq1,sq2,sq3),
                         stack = TRUE)

right_side = image_append(c(sq4,sq5,sq6),
                         stack = TRUE)

meme = image_append(c(left_side, right_side))
image_write(meme, "my_meme.png")
meme

#Animation Code

frame1 = image_append(c(sq1,blank_square))
frame2 = image_append(c(sq1,sq4))
frame3 = image_append(c(sq2,blank_square))
frame4 = image_append(c(sq2,sq5))
frame5 = image_append(c(sq3,blank_square))
frame6 = image_append(c(sq3,sq6))

frames = c(frame1, frame2, frame2, frame3, frame4,
           frame4, frame5, frame6, frame6)

gif = image_morph(frames) %>%
  image_animate(fps = 10)

image_write(gif, "my_animation.gif")

My Animation:

Creativity

Learning reflection